home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Entertainment / MacMud / Mud 4.0 / interpret.h < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-30  |  1.8 KB  |  70 lines  |  [TEXT/tefi]
  1. union u {
  2.     char *string;
  3.     int number;
  4.     struct object *ob;
  5.     struct vector *vec;
  6.     struct svalue *lvalue;
  7. };
  8.  
  9. /*
  10.  * The value stack element.
  11.  * If it is a string, then the way that the string has been allocated differ,
  12.  * wich will affect how it should be freed.
  13.  */
  14. struct svalue {
  15.     short type;
  16.     short string_type;
  17.     union u u;
  18. };
  19.  
  20. #define T_INVALID    0x0
  21. #define T_LVALUE    0x1
  22. #define T_NUMBER    0x2
  23. #define T_STRING    0x4
  24. #define T_POINTER    0x8
  25. #define T_OBJECT    0x10
  26. #define T_MAPPING    0x20
  27.  
  28. #define STRING_MALLOC    0    /* Allocated by malloc() */
  29. #define STRING_CONSTANT    1    /* Do not has to be freed at all */
  30. #define STRING_SHARED    2    /* Allocated by the shared string library */
  31.  
  32. struct vector {
  33.     short size;
  34.     short ref;
  35. #ifdef DEBUG
  36.     int extra_ref;
  37. #endif
  38.     struct wiz_list *user;    /* Save who made the vector */
  39.     struct svalue item[1];
  40. };
  41.  
  42. #define ALLOC_VECTOR(nelem) \
  43.     (struct vector *)xalloc(sizeof (struct vector) + \
  44.                 sizeof(struct svalue) * (nelem - 1))
  45.  
  46. struct lnode_def;
  47. void free_vector PROT((struct vector *)), free_all_values();
  48.  
  49. /*
  50.  * Control stack element.
  51.  * 'prog' is usually same as 'ob->prog' (current_object), except when
  52.  * when the current function is defined by inheritance.
  53.  * The pointer, csp, will point to the values that will be used at return.
  54.  */
  55. struct control_stack {
  56.     struct object *ob;        /* Current object */
  57.     struct object *prev_ob;    /* Save previous object */
  58.     struct program *prog;    /* Current program */
  59.     int num_local_variables;    /* Local + arguments */
  60.     char *pc;
  61.     struct svalue *fp;
  62.     int extern_call;        /* Flag if evaluator should return */
  63.     struct function *funp;    /* Only used for tracebacks */
  64.     int function_index_offset;    /* Used when executing functions in inherited
  65.                    programs */
  66.     int variable_index_offset;    /* Same */
  67.     short *break_sp;
  68. };
  69.  
  70.